home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
mcedit10.zip
/
HAND.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-12-01
|
2KB
|
54 lines
PROCEDURE handMouse;
var
handmasks : array[0..1,0..15] of word;
Regs : Registers;
BEGIN
{ Screen Mask }
handmasks[0,0] := $F3FF; {1111001111111111}
handmasks[0,1] := $E1FF; {1110000111111111}
handmasks[0,2] := $E1FF; {1110000111111111}
handmasks[0,3] := $E1FF; {1110000111111111}
handmasks[0,4] := $E1FF; {1110000111111111}
handmasks[0,5] := $E07F; {1110000001111111}
handmasks[0,6] := $C00F; {1100000000001111}
handmasks[0,7] := $8001; {1000000000000001}
handmasks[0,8] := $0000; {0000000000000000}
handmasks[0,9] := $0000; {0000000000000000}
handmasks[0,10] := $0000; {0000000000000000}
handmasks[0,11] := $0000; {0000000000000000}
handmasks[0,12] := $0000; {0000000000000000}
handmasks[0,13] := $8000; {1000000000000000}
handmasks[0,14] := $C001; {1100000000000001}
handmasks[0,15] := $E001; {1110000000000001}
{ Cursor Mask }
handmasks[1,0] := $0000; {0000000000000000}
handmasks[1,1] := $0C00; {0000110000000000}
handmasks[1,2] := $0C00; {0000110000000000}
handmasks[1,3] := $0C00; {0000110000000000}
handmasks[1,4] := $0C00; {0000110000000000}
handmasks[1,5] := $0C00; {0000110000000000}
handmasks[1,6] := $0D80; {0000110110000000}
handmasks[1,7] := $2DB0; {0010110110110000}
handmasks[1,8] := $6DB6; {0110110110110110}
handmasks[1,9] := $6DB6; {0110110110110110}
handmasks[1,10] := $6DB6; {0110110110110110}
handmasks[1,11] := $7FFE; {0111111111111110}
handmasks[1,12] := $7FFE; {0111111111111110}
handmasks[1,13] := $3FFE; {0011111111111110}
handmasks[1,14] := $1FFC; {0001111111111100}
handmasks[1,15] := $0000; {0000000000000000}
regs.AX := 9;
regs.BX := 1;
regs.CX := 0;
regs.DX := ofs(handmasks);
regs.ES := seg(handmasks);
Intr(51,Regs);
end;